<!DOCTYPE html>
<html>
<head>

  <meta http-equiv="Content-Type" content="text/html; charset=utf-8"/>
  <meta name="viewport" content="width=device-width, initial-scale=1.0"/>

  <link rel="stylesheet" type="text/css" href="right.css"/>
  <link rel="stylesheet" type="text/css" href="bootstrap.min.css"/>
  <link rel="stylesheet" type="text/css" href="shiny.css"/>
  <link rel="stylesheet" type="text/css" href="bootstrap-responsive.min.css"/>
  <link rel="stylesheet" type="text/css" href="jquery.slider.min.css"/>

  <title>RIGHT: R Interactive Graphics via HTml</title>

  <script src="kinetic-v5.0.1.js" type="text/javascript"></script>
  <script src="common.js" type="text/javascript"></script>
  <script src="structure.js" type="text/javascript"></script>
  <script src="axis.js" type="text/javascript"></script>
  <script src="color.js" type="text/javascript"></script>
  <script src="callback.js" type="text/javascript"></script>
  <script src="node_event.js" type="text/javascript"></script>
  <script src="menu.js" type="text/javascript"></script>
  <script src="array.js" type="text/javascript"></script>
  <script src="dot.js" type="text/javascript"></script>
  <script src="line.js" type="text/javascript"></script>
  <script src="bar.js" type="text/javascript"></script>
  <script src="jquery.js" type="text/javascript"></script>
  <script src="shiny.js" type="text/javascript"></script>
  <script src="bootstrap.min.js" type="text/javascript"></script>
  <script src="jquery.slider.min.js" type="text/javascript"></script>
  <script src="shiny-right.js" type="text/javascript"></script>
  <script src="data.js" type="text/javascript"></script>

</head>
<body>

  <script>
  var Theoph = createMainStructureE(Theoph);
  </script>
  <div id="content">
  <div id="loessArray" class="right-output">
  <div id="container1" oncontextmenu="return false;"></div></div>
  <div id="content2" class="right-output">
  <div id="container2" oncontextmenu="return false;"></div></div>
  </div>

  <script>
    
    var axis1 = new Axis(1, Theoph, 'Time', 'conc', {legend: 'Subject'});
    var point1 = new Dot(axis1, Theoph, 'Time', 'conc', {});
    var histObj1 = new ddply(Theoph, ['Time'], {});
    var axis2 = new Axis(2, histObj1, 'Time', 'frequency', {});
    var hist1 = new Bar(axis2, histObj1, 'Time', 'frequency', {});
    
    Theoph.draw();
    var AllAxisObjArr = [axis1, axis2]; eventTrigger(AllAxisObjArr);
  </script>

<script>
var loessArray = createMainStructureE('Theoph');
var loffObj1 = new MakeLineObj(loessArray, 'Time', 'conc', {});
var loff1 = new Line(axis1, loffObj1, 'x1', 'x2', 'y1', 'y2', {});
$(function() {
setTimeout(function() {
window.Shiny.onInputChange('Theoph', Theoph.$isHidden);
}, 1)
});
</script>

  <div id="footer">
  <p id="copyright">&copy; 2014 - <a href="#">The RIGHT team</a></p>
  <p id="dont-delete-this">E-mail : <a href="mailto:right-user@googlegroups.com">right-user@googlegroups.com</a></p>
  </div>

</body>
</html>
